home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / BobClip.lha / bobclip / examples / Example.amos / Example.amosSourceCode
Encoding:
AMOS Source Code  |  1997-07-27  |  746 b   |  33 lines
  1. '******************************************************* 
  2. '* 
  3. '* Samll example program on how to use bob banks created 
  4. '* with BobClip in your own amos programs. 
  5. '* 
  6. '* By Mike Hiltunen
  7. '* July 27, 1997 
  8. '* 
  9. '******************************************************* 
  10. '
  11. '***** Open up a screen
  12. Hide 
  13. Screen Open 0,320,256,64,Lowres
  14. Flash Off : Curs Off : Cls 0
  15. Double Buffer 
  16. '
  17. '***** Load the bob bank 
  18. Load "Example.abk"
  19. Get Sprite Palette 
  20. Bob 1,125,50,1
  21. '
  22. '***** Setup an animation using AMAL 
  23. Amreg(0)=14
  24. A$="A 0,(1,RA)(2,RA)(3,RA)(4,RA)(5,RA)(6,RA)(7,RA)(8,RA)(9,RA)(10,RA)(11,RA)"
  25. A$=A$+"(12,RA)(13,RA)(1,RA)(13,RA)(1,RA)(13,RA)(1,RA)(13,RA)(1,RA)"
  26. Channel 1 To Bob 1
  27. Amal 1,A$
  28. '
  29. '***** Start the animation 
  30. Amal On 1
  31. Wait Key 
  32. Erase 1
  33. End